home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00256_Pick Object.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  353 b   |  15 lines
  1. global gVR.ObjectFilename
  2.  
  3. on mouseUp
  4.   if the machineType = 256 then
  5.     set tFileObject to FileIO(mnew, "?read", "MOV")
  6.   else
  7.     set tFileObject to FileIO(mnew, "?read", "MooV")
  8.   end if
  9.   if objectp(tFileObject) then
  10.     set tFileName to tFileObject(mFileName)
  11.     tFileObject(mdispose)
  12.     set gVR.ObjectFilename to string(tFileName)
  13.   end if
  14. end
  15.